home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / set'time.l < prev    next >
Text File  |  2007-02-28  |  482b  |  18 lines
  1. 9000 PROC SET'TIME(HOUR,MINUTE,SECOND) CLOSED
  2. 9010 JIFFY:=((HOUR*60+MINUTE)*60+SECOND)*60
  3. 9020 FOR I:=2 TO 0 STEP -1 DO
  4. 9030 POKE 160+I,JIFFY MOD 256
  5. 9040 JIFFY:=JIFFY/256
  6. 9050 ENDFOR I
  7. 9060 ENDPROC SET'TIME
  8. 9070 //
  9. 9080 PROC GET'TIME(REF HOUR,REF MINUTE,REF SECOND) CLOSED
  10. 9090 JIFFY:=0
  11. 9100 FOR I:=0 TO 2 DO
  12. 9110 JIFFY:=JIFFY*256+PEEK(160+I)
  13. 9120 ENDFOR I
  14. 9130 HOUR:=JIFFY DIV 216000
  15. 9140 MINUTE:=JIFFY MOD 216000 DIV 3600
  16. 9150 SECOND:=JIFFY MOD 3600 DIV 60
  17. 9160 ENDPROC GET'TIME
  18.